home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / dec94 / bt_fig01.gif next >
Graphics Interchange Format  |  1996-07-10  |  10.2 KB  |  634x476  |  4-bit (5 colors)
   ocr: SURI.LSL-LIbraryl-arraysortx method arraysortx(uar a AyAny) var tempA Anyiype swappedL Logical si Smallint enduar swappedL == True while swappedL ; While any elements of the array are out of order. swappedL == False ; Check each element of the array except the last. for si from 1 to a.size() - 1 If the value of the element is greater than the value in the next element, swap them. if a[si] > a[si + 1] then tempA - a[si] a[si] - a[si + 1] a[si + 1] = tempA swappedL = True endif endFor endWhile endmetnod Edit Line: 16 Col: 35